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Purpose and Audience 


Conventions in Text 


Orgaitization 


Preface 


This manual describes the changes and extensions in Sun FORTRAN 1.2. We 
assume you are familiar with the previous Sun FORTRAN and the SunOS file 
system. See also the Sun FORTRAN Programmer’s Guide. 

Note the following conventions we use in this manual to display information: 

□ Plain typewriter font indicates commands, prompts, and 
programming statements. 

□ Bold typewriter font indicates user input. 

o Italics indicates general arguments or parameters that you should replace 
with the appropriate input. Italics are also used to indicate emphasis. 


□ Examples of coding are set in white boxes. Examples with user interaction 
are set in gray boxes to indicate the workstation screen. For example: 



demo% 

echo hello 



hello 

demo % 

1 


1_ 



J 


The basic SunOS prompt is merely the percent sign (%). However, 
most Sun workstations have distinct host names and our examples are 
more easily distinguished if we use a symbol longer than a % sign. 
For this reason, examples in this manual use demo% to denote the 
system prompt. 

This manual consists of the following parts: 

Chapter 1 is an overview of the changes and extensions. 

Chapter 2 describes the changes and features. 

Appendix A lists errata and addenda. 


- Vll - 
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Introduction 


1.1. Overview 


This release adds various features and improvements to Sun FORTRAN. 


1.2. Revision Components The new release consists of the previous Sun FORTRAN compiler and library 

with extensions added. 

□ The logical right shift function LRS HI FT 

□ Variable expressions in FORMAT statements 

□ The OPTIONS statement 

o Initializing variables in type statements 

□ Initializing fields of structured records 

□ The intrinsic function ZEXT 

□ The VMS FORTRAN system routines 

DATE, IDATE, SECNDS, TIME, RAN, and MVBITS 

1.3. Relationship with This Sun FORTRAN executes on all Sun-3™ and Sun-4™ systems under 

Other Sun Products SunOS 4.0 and later. 
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New Features 


2.1. The Logical Right Sun FORTRAN now has a logical right shift pseudo-function, LRSHFT, that 

Shift Pseudo-function compiles into inline code. 

LRSHFT _ 1 f • 

The general form is: 

LRSHFT ( al, a2 ) 

where LRSHFT shifts al logically right by a2 bits. 

The shift functions are summarized here: 

LSHIFT shifts al logically left by a2 bits, (inline code) 

LRSHFT shifts al logically right by a2 bits, (inline code) 

RSHIFT shifts al arithmetically* right by a2 bits, (inline code) 
ISHIFT shifts al logically right if a2 > 0 and left if a2 < 0. 


2.2. Variable Expressions In general, inside a format statement, any integer constant can be replaced by 
in FORMA.T Statements an arbitrary expression; the single exception is the “n” in an “/iH...” edit 

descriptor. The expression itself must be inclosed in angle brackets. 

For example, the “6” in: 



- 


1 FORMAT( 3F<2*N+M>.1 ) 

_ J 


Similarly, the “3” or “1” can be replaced by any expression. 


* The Sun FORTRAN Programmer’s Guide, page 238, describes RSHIFT as doing a logical right shift. 
That is an error. RSHIFT does an arithmetic right shift. 


^sun 
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Rules and Restrictions for Variable Expressions in FORMAT ’s 

□ The expression is reevaluated each time it is encountered during a format 
scan. 

□ If necessary, the expression is converted to integer type. 

□ Any valid FORTRAN expression is allowed, including function calls. 

□ Variable expressions are not allowed in formats generated at runtime. 

2.3. The OPTIONS The OPTIONS statement overrides certain compiler command-line options. 

Statement The general form is: 


/— 


N 


OPTIONS /qualifier [/qualifier...] 




J 


The OPTIONS statement qualifiers recognized by Sun FORTRAN are: 
Qualifier Action Taken 


/[NO]G_FLOATING 

/[NO]14 

/[NO]f77 

/CHECK=ALL 

/CHECK=[NO]OVERFLOW 

/CHECK=[NO]BOUNDS 

/CHECK=[NO]UNDERFLOW 

/CHECK=NONE 

/NOCHECK 

/[NO]EXTEND SOURCE 


None (not implemented) 
Enables/Disables the -12 option 
Enables/Disables the -66 option 
Enables the -C option 
None (not implemented) 

Enables the -C option 
None (not implemented) 

Disables the -C option 
Disables the -C option 
Disables the -e option 


Rules and Restrictions for OPTIONS Statements 


□ The OPTIONS statement must be the first statement in a program unit. Note 
that this means it must be before the BLOCK DATA, FUNCTION, 

PROGRAM, and SUBROUTINE Statements. 


□ The options set by the OPTIONS statement override the values from the 
compiler command-line. 

a The options set by the options statement endure for that program unit 
only. 


□ A qualifier can be abbreviated to four or more characters. 

□ Upper or lower case is not significant. 


microsystems 
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2.4. Initializing in Type You can initialize variables in a typed data declaration, as in a DATA statement. 

Declarations The general form is: 

type VariableName / constant / ... 

or 

type ArrayName / constant, ... / 

or 

type ArrayName / r*constant / 
where r is a repeat factor. 


For example: 


r 

CHARACTER 

LABEL* 12 / "Standard" / 




COMPLEX 

STRESSPT / ( 0.0, 1.0 ) / 




INTEGER 

COUNT /99/, Z/1/ 




REAL 

PRICE / 0.0 /, COST / 0.0 

/ 



REAL 

LIST(8) / 0.0, 6*1.0, 0.0 

/ 


V_ 




J 


Rules and Restrictions for Data Type Initialization 
o For a simple variable, there must be exactly one constant. 

□ If any element of an array is initialized, aU must be. 

□ You can use an integer as a repeat factor, followed by an asterisk (*), 
followed by a constant. (In the example above, six values of 1.0 are stored 
into array elements 2, 3, 4, 5, 6, and 7 of LIST.) 

□ If a variable or array is declared AUTOMATIC, then it cannot be initialized. 

□ A pointer-based variable or array cannot be initialized. For example, with: 


( - 

INTEGER a 

/ 4 / 



POINTER ( 

X, a ) 


v. 



J 


You get a compiler warning message, and a does not get initialized. 
□ If a variable or array is not initialized, its value(s) are undefined. 



Revision A of 27 January 1989 





10 Sun FORTRAN Release Notes 


2.5. Initializing Fields of 
Record Structures 


' --—-—- V 

STRUCTURE /PRODUCT/ 

INTEGER*4 

ID / 99 / 

CHARACTER*16 

NAME 

CHARACTER*8 

MODEL 

REAL*4 

COST 

REAL*4 

PRICE 

END STRUCTURE 

_ 

——___ y 


Every record that is declared to have the structure PRODUCT will have its ID 
field initialized to 99. For example: 

/---— -- - 

RECORD /PRODUCT/ CURRENT, PRIOR, NEXT, LINE(10) 
------- 

This puts 99 into the ID field of records CURRENT, PRIOR, NEXT, and each of 
the 10 records of the array LINE. 

Rules and Restrictions for Field Initialization 

□ The structure can be a substructure or union. 

□ If a record is declared AUTOMATIC, then its fields cannot be initialized. 

□ A pointer-based record or record field cannot be initialized. 

For example, with: 



You get a compiler warning message, and a. i does not get 
initialized. 

□ If a field is unnamed or not initialized, its value is undefined. 


You can initialize fields in a structured record, as long as the field declaration is a 
typed data declaration. For example: 
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2.6. The Zero Extend 
Function ZEXT 


The following zero-extend functions are now recognized by Sun FORTRAN. The 
first unused high-order bit is set to zero and extended toward the higher-order end 
to the width indicated in the table. 


T able 2-1 Zero-Extend Functions 


Name 

GenISpec 

Function 

Arg Type 

Result Type 

ZEXT 

generic 

zero-extend 

- 

- 

I ZEXT 

specific 

zero-extend 

LOGICAL*! 

orINTEGER*2 

INTEGER*2 

JZEXT 

specific 

zero-extend 

LOGICAL 

or INTEGER 

INTEGER*4 


These routines provide compatibility with VMS FORTRAN system routines. 

To use these routines you must include the -1V77 option on the f 77 command 
line, in which case you will also get the VMS versions of IDATE and TIME, 
instead of the Sun versions. For example: 

- —^--—^^ ^ 

demo% f77 myprog.f -1V77 

^ ; ■___ -_^^_____^- —J 


Summary 

Table 2-2 Summary: VMS FORTRAN System Routines 


Name 

Definition 

Calling Sequence 

Argument 

Type 

Returned 

Type 

DATE 

Date 

as dd-mmm-yy 

CALL DATE( c ) 

CHARACTER*9 

n/a 

IDATE 

Date 

as d, m, y 

CALL IDATE( d, m, y ) 

INTEGER 

n/a 

SECNDS 

Time of day 
or elapsed time 

t = SECNDS ( u ) 

REAL 

REAL 

TIME 

Current time 
as hhmmss 

CALL TIME ( t ) 

CHARACTER*8 

n/a 

RAN 

Random 

number 

r = RAN( S ) 

INTEGER*4 

REAL 

MVBITS 

Move bit field 

CALL MVBITS(src,il,n, des,i2) 

INTEGER 

n/a 


2.7. The VMS FORTRAN 
System Routines 
Usage 


The error condition subroutine ERRSNS is not provided on Sun systems because 
it is totally specific to the VMS operating system. The terminate program 
subroutine EXIT was already provided by SunOS. 
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date Get the current system date as a character string. 

Usage CALL DATE( c ) 
where: 

c is a variable, array, array element, or character substring of type 
CHARACTER* 9. 

The form of the returned string c is dd-nmmi-yy, where: 
dd is the day of the month, as a 2-digit integer, 
inmm is the month name as a 3-letter abbreviation, 
yy is the year, as a 2-digit integer. 
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IDATE 


Get the current system date as three integers for month, day, and year. 


Usage CALL IDATE( m, d, y ) 

where m, d, and y are variables of type INTEGER, 
and where: 

m is the month. 


d is the day. 
y is the year. 


Example 


derao% cat idal.f 

* idal.f — Get the date as three integers m, d^ y. 
INTEGER m, d, y 
CALL IDATE ( m, d, y ) 

WRITE The date is: ",3i3)”)m,d,y 

END 

demo% til idal.f “1V77 

idal.f: 

MAIN: 

■ . .:. demo%- a. out. ■ ^ : . : ■ ■ ■ - ■ . 

The date is: 9 23 88 

.. demo% 


^sun 
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SECNDS 


Get the system time in seconds, minus the value of the argument. 


Usage t = SECNDS ( to ) 
where: 

to is a constant, variable, or array element of type REAL, and 

SECNDS returns a value of type REAL. The returned value is the number of 

seconds since midnight, minus the argument supplied by the user. 


Example 


^ ^ ^ ^ ^ ^ ___ ^ ^ 

demo% cat secl.f 

REAL elapsed^ tO,tl, y 

to =0.0 

tl= SECNDS( to ) 

Y = 0*1 

DO I =1, 1000 

X == ASIN( y ) 

END DO 

elapsed = SECNDS( tl ) 

WRITE ( *, 1 ) elapsed 

1 FORMAT { '1000 arcsines: ', Fl2v6, ' sec' ) 

END 

demo% f 77 secl.f -1V77 

seel.f: 

MAIN: 

demo% a.out 

1000 arcsines: 6.699141 sec 

demo% 


Remarks 


□ The returned value from SECNDS is accurate to 0.01 second. 

□ The value is the number of seconds from midnight, and it correctly spans 
midnight. 

□ Some precision may be lost for small time intervals near the end of the day. 


microsystems 
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TIME 


Get the current system time as a CHARACTER string. 


Usage CALL TIME( t ) 

where t, is a variable, array, array element, or character substring, and is of type 

CHARACTER*8. 

The string returned is of the form hh :mm: ss, where each of hh, mm, and ss are 
2 -digits, and where: 

hh is the hour. 

mm is the minute. 

s s is the second. 


Example 


— - --—---^^^ \ 

demo% cat timl.f 

* timl.f —■ Get current time as a character string. 
CHARACTER t*8 
CALL TIME( t ) 

WRITE ( The time is: S A8 ) ” ) t 

END 

demo% f77 timl.f -1V77 

timl.f; 

MAIN: 

demo% a.out 
The time is: 08:14:13 
demo% 


microsystems 
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RAN 


Generate a random number between 0 and 1; repeated calls to RAN generate a 
sequence of random numbers with a uniform distribution. 

Usage r = RAN ( i ) 

where: r is a variable of type REAL, and i is a variable or array element of type 
INTEGER* 4. 


Example 


demo% cat rani.f 

* rani.f - Generate random numbers. 

INTEGER i, n 
REAL r(10) 
i = 760013 


DO n = 1, 10 

r (n) = RAN ( i ) 

END DO 

WRITE ( *, "( 5 Fll.6 )" 
END 

demo% f77 ranl.f -1V77 

rani.f; 

MAIN: 

demo% a.out 

0.222058 0.299851 0.390777 

0.060174 0.149466 0.444353 

demo% 


0.607055 

0.002982 


0.653188 

0.976519 


Remarks 


□ The range includes 0.0 and excludes 1.0. 

□ The algorithm is a multiplicative congruential type general random number 
generator. 


□ In general, the value of i is set once during execution of the calling 
program. 

□ The initial value of i should be a large odd integer. 

□ Each call to RAN gets the next random number in the sequence. 

a To get a different sequence of random numbers each time you run the 

program, you must set the argument to a different initial value for each run. 


□ The argument is used by RAN to store a value for the calculation of the next 
random number according to the following algorithm: 


f 




SEED = 6909 * SEED + 1 (MOD 2**32) 


\ _ 


J 


□ SEED contains a 32-bit number, and the high-order 24 bits are converted to 
floating point, and that value is returned. 
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MVBITS 


Move a bit field 

CALL MVBITS( src^ inil^ nbits^ des, ini2 ) 

where src, inil, nbits, des, and ini2, are of type INTEGER, 
and where: 

src is the variable or array element that is the source, 

inil is an expression for the initial bit position in the source. 

nbits is the number of bits to move. 

des is the variable or array element that is the destination. 

ini 2 is an expression for the initial bit position in the destination. 


demo% cat mvbl.f 

^ mvbl.f ““ From src^ initial bit 0^ move 3 bits 

* to des, initial bit 3. 

* src des 

543210 <— Bit numbers (VMS convention) 

* 000111 000001 Values before move 

111001 <— Values after move 

INTEGER src, inil, nbits, des, ini2 

DATA src, inil, nbits, des, ini2 

& / 7, 0, 3, 1, 3 / 

GALL MVBITS ( src, inil, nbits, des, ini2 ) 

WRITE " (5o3)”) src, inil, nbits, des, ini2 
END ■■■■ 

demo% f77 mvbl.f -1V77 

mvbl,f: 

MAIN: 

demo% a.out 
7 0 3 71 3 

demo% 

^___ : _ _ _^^^-----^--—--—^— 

Remarks □ Bits are numbered according to VMS conventions: from low-ordered end 
(see example above). 

o MVBITS changes only bits ini2 through ini2+nbitS“l of the des 
location, and no bits of the src location. 

n Restrictions: ini \-\-nbits<32 and ini2+nbits<32 


Usage 


Example 
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Errata and Addenda 


The following pages are Errata and Addenda for the Sun FORTRAN 
Programmer’s Guide, Part Number: 800-2163-10. 

A.l. Using the Compiler Pages 15-22 

Action: Remove pages 15 through 22 from the Sun FORTRAN Programmer’s 
Guide, and replace them with the new pages 15 through 22 that follow. 

Description of Changes 

In Section 3.4, added information related to the FORTRANCASE 
environment variable (old pages 15 and 16). 

In Section 3.7, inserted the -dalign option (old page 18), for the 
-misalign option, moved the restriction to Sun-4 (old page 20), 
inserted the -pic/PIC options (old page 21), and inserted the 
optional optimizer file opt im under -Qoption, and -Qproduce 
(old page 22). 

Minor formatting corrections on pages 18-22. 
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Continuation Lines 

The default maximum number of continuation lines is 19 (1 initial and 19 
continuation). See the Nl/i option, below. 

Extended Lines 

The compiler includes an option to accept extended source lines, with up to 132 
characters. By default, it ignores any characters after column 72. To specify the 
recognition of extended source lines, use the -e option, as in this example: 


--—---— — — — — ■ \ 

demo% f77 -e 

u ~ ^ - ; :: • ■■ ■ ■ - ■___________^-7 

Padding 

Padding is significant in lines such as: 

- , 

1 2 3 4 5 6 7 

C234567 8 901234567 8 901234567 8 901234567 8 901234567 8 901234567 8 901234567 8 9012 

DATA SIXTYH/60H 

1 / 

V_ 

J 


3.4. Upper and Lower Case In the standard, there are only 26 letters — FORTRAN 77 is a one-case language. 

Consistent with ordinary UNIX system usage, this compiler accepts upper-case or 
lower-case input. That is, the program source file can be in either lower-case or 
upper-case, or any mixture, but note the following general rules concerning case: 

o The normal action of the compiler is to maintain names of procedures and 
names of variables in lower-case. (The —U option prevents this. In this -U 
mode, it is possible to specify external names with upper-case letters in 
them, and to have distinct variables differing only in case.) 

□ The compiler does not translate characters inside character-string constants. 

□ By default, the strings returned by INQUIRE are in upper-case. 

□ The debugger dbxtool does not convert to lower-case. 

Case with INQUIRE Since strings returned by INQUIRE are, by default, in upper-case, use of 

INQUIRE needs some caution regarding case. For example: 



demo% cat inql.f 

* inql.f Inquire with UPPER and lower—case 
CHARACTER ANSWER*15 
INQUIRE < 6, SEQUENTIAL=ANSWER ) 

IF ( ANSWER .EQ. 'YES' ) PRINT *, 'CAPS MATCH' 
IF ( ANSWER .EQ. 'yes' ) PRINT *, 'lowers match 
END 

demo% til inql.f 
inql.f: 

MAIN: 

demo% a.out ■ 

CAPS MATCH 
demo% I 


^sun 
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The match on upper-case is successful; the match on lower-case fails. You 
should probably be alert to such distinctions. 

Case of Run-time Strings You can use the environment variable FORTRANCASE to set upper or lower case 

for strings generated at mn-time Gogical variables, the E in floating point 
numbers, and strings returned by the INQUIRE statement). For example; 



Case with dbxtool Use of the debugger dbxtool also requires some caution regarding case.* If 

your source file is in upper-case, then before you use dbxtool you should 
either tell f 7 7 to use upper-case, for example: 


demo% f77 -U inql.f 

inql. f: 

MAIN: 

d€mo% I 

-—-:_ __ > 

or use the tr command to translate the source file from upper-case to lower-case 
or vice versa. For example, to read the upper-case source file SBENCH. f and 
write the lower-case source file sbench. f: 



If your programs have bugs, dbxtool is useful. Most who have tried it found it 
was more than worth the bother of recompiling with the -U option. 


3.5. Routines per File The scope of FORTRAN variables and routines (as compared with C) has nothing 

to do with the files they reside in, so a source file can contain any number of 
compilation units (main programs, functions, or subroutines). However, there are 
two good reasons to keep each compilation unit in a separate source file: 

a Reduce the compilation oveihead of changing one procedure. 

□ Minimize loading of unreferenced functions. 


Note that this applies only to the .o 
modules in libraries. Files explicitly 
named in the link command are 
unconditionally loaded. 


f 77 produces one . o file for each . f file it processes. If any routine 
in the . o file is referenced, the linker Id copies in the entire . o file, 
loading all routines, referenced or not. 

For example, suppose we have two files: subs. f and main. f: 


File subs. f has routines a and b . 

File main. f has a main program that calls a but not b . 


* This debugger displays variable names so the users can select the variaWe they want displayed. It gets the 
variable names from the source file, so if the source has them in upper and the compiler has them in lower^ then 
dbxtool cannot find the selected variable. 


microsystems 


Revision A of 27 January 1989 





Chapter 3 — Using the Compiler 17 


The command: 


dentol £77 main.£ sub.£ 


produces an a. out file that contains the code for subroutine b even 
though b is not referenced. 

The f split command can be used to break up multiple-routine source files into 
a series of files, one routine per file. 

3.6. Other Files The £77 command recognizes several other kinds of files. The table below 

summarizes the filename extensions that £77 understands. 

Table 3-1 Filename Suffixes Sun FORTRAN Understands 


Suffix 

Language 

Action 

.f 

FORTRAN 

Compile FORTRAN source files, put object files in 
current directory, default name of object file is that 
of the source but with . o suffix. 

.F 

FORTRAN 

Process FORTRAN source files by the C 
preprocessor before compiling by £77. 

. c 

C 

C source files are compiled by the C compiler. The 
£77 and cc commands generate slightly different 
loading sequences, since FORTRAN programs need 
a few extra libraries and a different startup routine 
than do C programs. 

. s 

Assembler 

Process assembly-language source files by the 
assembler as. 


In-line Expansion 

Process in-line expansion code template files. 

These are used to expand calls to selected routines 
in-line when the -0 option is used. 

. o 

Object Files 

Pass object files through to the linker. 


Note: Files with none of the above filename suffixes are passed to the linker. 


Language Preprocessor The cpp program is the C language preprocessor, which is invoked during the 

first pass of a FORTRAN compilation if the source filename has the . F extension. 
Its main uses here are for constant definitions and conditional compilation. See 
cpp (1), or the -Dname option in Compiler Options, in the next section.) 
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3.7, Compiler Options 


The list below contains the options that f 7 7 understands. Note that the compiler 
option -help displays essentially the same list, as does the man f 77 
command. (See the Manual Pages, online or in the appendices.) 

—66 Report non-FORTRAN 66 constmcts as errors. 

-a Insert code to count how many times each basic block is executed. 

Invokes a mntime recording mechanism that creates a . d file for every . f 
file (at normal termination). The . d file accumulates execution data for 
the corresponding source file. The tcov(l) utility can then be run on the 
source file to generate statistics about the program. 

-align _block_ 

Cause the common block whose FORTRAN name is block to be page- 
aligned: its size is increased to a whole number of pages, and its first byte 
is placed at the beginning of a page. For example, the command 
“f77 -align _BDFFO_ GROWTH. F” causes BUFFO to be page- 
aligned. This option applies to uninitialized data only: if any variable of 
the common block is initialized in a DATA statement, then the block will 
not be aligned. This option is passed to the linker. 

-ansi 

Identify all non-ANSI extensions. Note that f 77cvt provides an option to 
flag any Sun FORTRAN extensions that it uses during the conversion of a 
VMS FORTRAN source file. 

For more on f 7 7cvt, see Section 10.4 — “The Source Code Converter.” 
-c Suppress linking and produce a . o file for each source file. 

-C Compile code to check that subscripts are within declared array bounds, 
—dalign 

TM 

Sun-4 only. Generate double load/store instructions wherever possible 

for faster execution. Using this option automatically triggers the -f option 
(see below) to cause all double typed data to be double aligned. With 
-dalign, you may not get ANSI standard FORTRAN alignment — a 
tradeoff of portability for speed. See also “Shared Libraries” in 
Programming Utilities and Libraries. 

—dryrun 

Show but do not execute commands constructed by the compiler driver. 

-Dname=def 

-Dname 

Define name to the C preprocessor, as if by “#def ine”. If no definition is 
given, the name is defined as “1 ” (. f files only). 

-e Accept extended source lines, up to 132 characters long. 

-f Align local data and COMMON blocks on 8-byte boundaries. Resulting 
code may not be standard and may not be portable. 
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tfloatjyption 

Sun-2™ or Sun-3™ only. See the Sun Floating-Point Programmer’s Guide. 

-f68881 

Generate code that assumes the presence of the Sun Floating-Point 
Accelerator (Sun-3 only). 

—ffpa 

Generate code that assumes the presence of the Sun-3 floating-point 
accelerator board (Sun-3 only). 

-fsky 

Generate code that assumes the presence of a Sky™ Floating-Point 
Processor board. Programs compiled with this option can only be run 
in systems that have a Sky board installed. (Sun-2 only). 

-fsoft 

Generate code that uses software floating-point calls (this is the 
default). 

—fstore 

Insure that expressions allocated to extended-precision registers are 
rounded to storage precision whenever an assignment occurs in the 
source code. Only has effect when -f68881 is specified (Sun-3 only). 

-fswitch 

Run-time-switched floating-point calls. The compiled object code is 
linked at runtime to routines that support the FPA, MC68881, Sky 
floating-point board, or software-floating-point calls, depending on the 
system that is mnning the program (Sun-2 or Sun-3). 

-F Apply the C preprocessor to relevant files and put the result in the file with 
the suffix changed to . f, but do not compile. 

-g Produce additional symbol table information for dbx or dbxtool. 
Also, pass the -Ig file to Id (1). 

-help Display an equivalent of this list of options. 

-12 Make the default size of integer and logical constants and variables 
short (2 bytes). 

-14 Make the default size of integer and logical constants and variables four 
bytes (this is the default). 

-Zpath 

Add path to the list of directories in which to search for ‘#include’ files 
with relative pathnames (not beginning with /). Search first for 
‘♦include’ files whose names do not begin with ‘/’ in the directory 
containing the source file, then in directories named in -I options, and 
finally in directories on a standard list (. F suffix files only). Note that this 
does not affect FORTRAN’S INCLUDE statement, only the C 
preprocessor’s. For example, “f 77 -l/usr/appllb growth, f” 
causes the compiler to search for ‘#include’ files in / usr/applib . 
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-lx Link with object library /1 ib /1 ibx. a, where x is a string. If that does 
not exist, then Id tries /usr/lib/libx. a (see ld(l)). 

-‘Ldir 

Add dir to the list of directories containing object-library routines (for 
linking using ld(l)). 

-misalign 

Sun-4 only. Allow for misaligned data in memory. Use this option only if 
you get a warning that COMMON or EQUIVALENCE statements cause data 
to be misaligned. WARNING: With this option, the compiler will 
generate much slower code for references to dummy arguments. If you 
can, you should recode the indicated section instead of recompiling with 
this option. For example, the program 


f 

INTEGER*2 

1(4) 



REAL 

Rl, R2 



EQUIVALENCE 

END 

(Rl, KD), (R2, 1(2)) 





J 


causes the error message 


"misalign.f", line 4: Error: bad alignment for "r2" 

forced by equivalence 


-N[cdlnqsx]nn/i 

Make static tables in the compiler bigger, f 7 7 complains if tables 
overflow and suggests you apply one or more of these flags. These flags 
have the following meanings: 

c Maximum depth of nesting for control statements (for example, DO 

loops). The default is 20. 

d Maximum depth of nesting for data structures and unions. 

The default is 20. 

1 Maximum number of continuation lines for a continued statement. 
The default is 19 (1 initial and 19 continuation). 

n Maximum number of identifiers. The default is 1009. 

q Maximum number of equivalenced variables. The default is 150. 

s Maximum number of statement numbers. The default is 401. 

X Maximum number of external names (common block names, subrou¬ 
tine and function names). The default is 200. 

-o output 

Name the final output file output instead of a. out. 
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-onetrip 

Compile DO loops so that they are performed at least once if reached. 

Sun FORTRAN DO loops are not performed at all if the upper limit is 
smaller than the lower limit, unlike FORTRAN 66 DO loops. 

-On Optimize the object code. If you use -g, then -On is ignored. 

-01 Peephole optimization only. Do not use -01 unless -02 and -03 
result in excessive compilation time, or running out of swap space. 

-02 Partial optimization. Does a restricted set of global optimizations. 

Do not use -02 unless -03 results in excessive compilation time, or 
running out of swap space. 

-03 Global Optimization, (same as -O) 

Note: 

If the optimizer runs out of swap space, try any of the following 
possibly corrective measures (listed in increasing order of difficulty): 

□ Change from -03 to -02. 

□ Divide large, complicated routines into smaller, simpler ones. 

□ Increase the limit for the stacksize: insert the line 

“limit stacksize 8 megabytes” into your . cshrc 
file. 

□ Repartition your disk with two to four times as much swap 
space. Backup everything first. You may well need help from 
your system administrator to do this. 

-p Prepare object files for profiling, see prof (1). 

-pg Produce counting code in the manner of -p, but invoke a runtime 

recording mechanism that keeps more extensive statistics and produces a 
gmon . out file at normal termination. An execution profile can then be 
generated by use of gprof (1). 

-pic 

Produce position-independent code. Each reference to a global datum is 
generated as a dereference of a pointer in the global offset table. Each 
function call is generated in pc-relative addressing mode through a 
procedure linkage table. The size of the global offset table is limited to 
64K on MC68000-family processors, or to 8K on SPARC processors. 


-PIC 

Similar to -pic, but allows the global offset table to span the range of 
32-bit addresses. This is for use in those rare cases where there are too 
many global data objects for -pic. 

-pipe 

Use pipes, rather than intermediate files between compilation stages. Very 
cpu-intensive. 
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-P Partial optimization, (same as -02) 

-<Joption prog opt 

Pass the option opt to the program prog. The option must be appropriate 
to that program and may begin with a minus sign, prog can be one of: as, 
c2, eg, epp, f 77passl, iropt, inline. Id, or optim. 

-Qpath pathname 

Insert the directory pathname into the compilation search path (to use 
alternate versions of programs invoked during compilation). This path will 
also be searched first for certain relocatable object files that are implicitly 
referenced by the compiler driver (such files as *crt * . o and 
bb_link. o). 

-Qproduce sourcetype 

Produce source code of the type sourcetype, where sourcetype is one of: 

. o Object file from as (1). 

.s Assembler source (from f77passl, inline, c2, eg, or optim.)* 

-S Compile the named programs, and leave the assembly-language output on 
corresponding files suffixed with . s (no . o file is created). 

-t.&Tnp=dir 

Set directory for temporary files to be dir. 

-time 

Repon execution times for the various compilation passes. 

-u Make the default type of variables ‘undefined’, rather than using FOR¬ 
TRAN implicit typing. 

-U Do not convert upper-case letters to lower-case, but leave them in the 
original case. The default is to convert to lower-case except within 
character-string constants. 

-V Print the name of each pass as the compiler executes. 

-w Suppress all warning messages. 

—w66 

Suppress only messages generated by programs using obsolete FORTRAN 
66 features. 

Unrecognized Arguments Other arguments are taken to be either linker option arguments or names of 

f 7 7-compatible object programs, typically produced by an earlier run, or 
perhaps libraries of f 77-compatible routines. These programs, together with the 
results of any compilations specified, are linked (in the order given) to produce 
an executable program called (by default) a. out or with a filename specified by 
the -o option. 


* For a Sun-2, Sun-3, or Sun-4, the optimizer file is iropt; fora SunSSfii,” it is optim. 
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A.2. Data Structures and Pages 43 and 44 

Expressions Action; Remove pages 43 and 44 from the Sun FORTRAN Programmer’s Guide, 

and replace them with the new pages 43 and 44 that follow. 

Description of Changes 

Formatting corrections on page 43. 
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Record declaration 


□ The only statements allowed between the STRUCTURE statement and the 
END STRUCTURE Statement are field-declaration statements and 
PARAMETER Statements. A PARAMETER statement inside a stmcture 
declaration block is equivalent to one outside. 

Rules and restrictions for fields 

Fields that are type declarations use the identical syntax of normal FORTRAN 

type statements, and all Sun FORTRAN types are allowed, subject to the 

following rules and restrictions: 

□ Any dimensioning needed must be in the type statement. The DIMENS ION 
statement has no effect on field names. 

□ You can specify the pseudo-name %FILL for a field name to align fields in 
a record. 

□ You must explicitly type all field names. The IMPLICIT statement does 
not apply to statements in a STRUCTURE declaration, nor do the implicit 
I, J, K, L,M,N rules apply. 

o You can’t use arrays with adjustable or assumed size in field declarations, 
nor can you include passed-length CHARACTER declarations. 

□ Field offsets — In a structure declaration, the offset of field n is the offset of 
the preceding field, plus the length of the preceding field, possibly corrected 
for any adjustments made to maintain alignment. For a summary of storage 
allocation, see the Subsection “Storage Allocation’’ in Section 4.3 — “Data 
Types.” 


The RECORD statement declares variables to be records with a specified 
structure, or declares arrays to be arrays of such records. The syntax of a 
RECORD statement is as follows: 

RECORD !Structure-name! record-list 
\, I structure-name I record-list] 


\_, I structure-name I record-list] 

where structure-name is the name of a previously declared structure, and 
record-list is a list of variables, arrays, or arrays with dimensioning and index 
ranges, separated by commas. 

For example, using the structure in the example above: 

—— - \ 

RECORD /PRODUCT/ CURRENT, PRIOR, NEXT, LINE(10) 

^ -- - ^ 


Each of the three variables CURRENT, PRIOR, and NEXT is a record which has 
the PRODUCT structure, and LINE is an array of 10 such records. 



Revision A of 27 January 1989 




44 Sun FORTRAN Release Notes 


Rules and restrictions for records 

□ Each record is allocated separately in memory. 

□ Initially, records have undefined values. 

□ Records, record fields, record arrays, and record-array elements are allowed 
as arguments and dummy arguments. When you pass records as arguments, 
their fields must match in type, order, and dimension. The record 
declarations in the calling and called procedures must match. Within a 
union declaration, the order of the map fields is not relevant — see “Unions 
and maps,” later in this section. 

□ Records and record fields are allowed in COMMON and dimension 
statements. 

□ Records and record fields are not allowed in DATA, EQUIVALENCE, 
NAMELIST, or SAVE Statements. 

Record and field reference You can refer to a whole record, or to an individual field in a record, and since 

structures can be nested, a field can itself be a structure, so you can refer to fields 
within fields, within fields, etc. The syntax of record and field reference is as 
follows: 

record-name [.field-name] ... [.field-name] 

where record-name is the name of a previously defined record variable, and each 
field-name is the name of a field in the record immediately to the left. 

Examples of references are given below, based on the stmcture and records of the 
above two examples: 


{ 






RECORD 

/PRODUCT/ CURRENT, PRIOR, NEXT, LINE(10) 



CURRENT 

= 

NEXT 



LINE(1) 

= 

CURRENT 



WRITE ( 

9 

) CURRENT 



NEXT.ID 

= 

82 


\_ 






In this example, the first assignment statement copies one whole record (all five 
fields) to another record, the second assignment statement copies a whole record 
into the first element of an array of records, the write statement writes a whole 
record, and the last statement sets the ID of one record to 82. 


A complete sample program is listed below to show structure and record 
declarations, record and field assignments, and field output: 
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A.3. Input and Output 
OPEN 


Action; Remove pages 79 and 80 from the Sun FORTRAN Programmer’s Guide, 
and replace them with the new pages 79 and 80 that follow. 

Description of Changes 

On page 79, clarified opening sequential access files with RECL. 
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ACCESS 


FORM 


RECL 



Optional character expression; one of: append, direct, or 

SEQUENTIAL. The default is SEQUENTIAL. 

If ACCESS='APPEND' is specified; 

□ SEQUENTIAL and FILEOPT='eof' are assumed. This is 
for opening a file to append records to an existing 
sequential-access file. This is a Sun FORTRAN extension. 

If ACCESS='direct' is Specified: 

□ RECL must also be given, since all I/O transfers are done in 
multiples of fixed-size records. 

□ Only directly accessible files are allowed; thus, tty, pipes, 
and magnetic tape are not allowed. 

□ If FORM is not specified, unformatted transfer is assumed. 

□ If form='unformatted', the size of each transfer 
depends upon the data transferred. 

If access='sequential': 

□ RECL is ignored; a runtime warning is issued. The ANSI 
standard prohibits RECL for sequential access. 

□ No padding of records is done. 

o Files don’t have to be randomly accessible; thus tty, pipes, 
and tapes can be used. 

□ If FORM is not specified, formatted transfer is assumed. 

□ If form='formatted', each record is terminated with a 
newline (\n) character. This means that each record actually 
has one extra character. 

□ If F0RM='PRINT', the file acts like a 
FORM='formatted' file, except for the interpretation of 
column-1 characters on output (0 = double space, 

1 = form feed, and blank = single space). 

o If form='unformatted', each record is preceded and 
terminated with an INTEGER* 4 count, making each record 
8 characters longer than normal. This convention is not 
shared with other SunOS programs, so is useful only for 
communicating between FORTRAN programs. 

An optional character expression. The options are 'FORMATTED', 
'unformatted', or 'print'. 

If not specified, 'formatted' is assumed. 

Interacts with ACCESS. 

“RECL=n” specifies a record length of n characters. 

Required if ACCESS='direCt'; ignored otherwise. See 

ACCESS='SEQUENTIAL' above. 
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ERR 

lOSTAT 

BLANK 

STATUS 


FILEOPT 



Each WRITE defines one record and each READ reads one record 
(unread characters are flushed). 

An optional clause, with an integer statement label to branch to if 
an error occurs during the OPEN. 

An optional clause, with an integer variable that receives the 
error status from an OPEN. 

Note: If you want to avoid aborting the program when an error 
occurs on an OPEN, then include an ERR=/a£»e/ or an 
lOSTAT=rtame. 

An optional character expression that indicates how blanks are 
treated. For formatted input only; the options are 'ZERO' (blanks 
treated as zeroes), and 'NULL' (blanks ignored during numeric 
conversion). If not specified, 'NULL' is assumed. 

An optional character expression. Possible values are: 

□ 'old' — the file already exists (nonexistence is an error). 

For example: STATUS='OLD' 

□ 'new' — the file doesn’t exist (existence is an error) 

Note: 'FlLE=«ame' is required. 

□ 'unknown' — existence is unknown (the default). 

n 'scratch' — In general, if you open a file with 

STATUS=' SCRATCH' , then the file wiU be removed when 
it is closed. 

Note: The standard prohibits opening a named file as 
scratch, that is if the OPEN statement has a FILE=/zfl/we 
option, then it cannot have a STATUS='SCRATCH' option. 
Sun FORTRAN allows opening named files as scratch, but 
such files will be removed when closed or at program termi¬ 
nation unless there is an explicit CLOSE statement with the 
option status='keep'. 

An optional character expression. The options are: 

a 'nop AD' — don’t extend records with blanks if you read 

past the end-of-record (formatted input only). That is, a 
short record causes an abort with an error message, rather 
than just filling with trailing blanks and continuing. 

□ 'BUFFER=rt' — This suboption is for magnetic tape only. It 
sets the size of the I/O buffer to use. It is necessary only 
when writing, since the I/O system defaults to 64K-character 
buffers for tape, allowing reads to anything smaller than that. 
WARNING: It must be at least 8 characters greater than the 
largest record you write to avoid spanning tape blocks. 

□ 'EOF' — opens a file at end-of-file rather than at the begin¬ 
ning (useful for appending data to the file). 
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Accessing Files 


Action; Remove pages 99 and 100 from the Sun FORTRAN Programmer’s 
Guide, and replace them with the new pages 99 and 100 that follow. 

Description of Changes 

On page 99, moved ampersands to column one. 


^sun 

Xr microsystems 


Revision A of 27 January 1989 



28 Sun FORTRAN Release Notes 



Revision A of 27 January 1989 



Chapter 7 — Input and Output 99 


□ character expressions, such as: 

FILE=PREFIX ( : LNBLNK (PREFIX) ) // 7’ // 

& NAME ( : LNBLNK (NAME)),... 

Some ways a program can get filenames are: 

a By reading from a file or terminal keyboard, such as: 

READ( 4, 401) FILNAM 

□ From the command line, such as: 

CALL GETARG( ARGNUMBER, FILNAM) 

□ From the environment, such as: 

CALL GETENV( STRING, FILNAM ) 

The example below shows one way to construct a filename: 

-- ^ 

CHARACTER*1024 FUNCTION FULLNAME ( NAME ) 

CHARACTER*(*) NAME 
CHARACTER*1024 PREFIX 
C 

C In path names starting with ' ~ 

C replace the tilde with the home directory name; 

C prefix relative pathname by path to current directory; 

C leave absolute path names unchanged. 

C 

IF ( NAME (1:1) .EQ. '/') THEN 
FULLNAME = NAME 

ELSE IF ( NAME(1:2) .EQ. ''/') THEN 
CALL GETENV( 'HOME', PREFIX ) 

FULLNAME = PREFIX(:LNBLNK(PREFIX)) // 

& NAME(2:LNBLNK(NAME)) 

ELSE 

CALL GETCWD( PREFIX ) 

FULLNAME = PREFIX(:LNBLNK(PREFIX)) // 

& '/' // NAME(:LNBLNK(NAME)) 

END IF 
END 


Accessing Unnamed Files When a program opens a FORTRAN file without a name, the runtime system 

supplies a filename. There are several ways it can do this. 

Opened as scratch If you specify STATUS=' SCRATCH' in the OPEN statement, then the system 

opens a file with a name of the form tmp. FAAAxnnnnn, where nnnnn is 
replaced by the current process ID, AAA is a string of three characters, and a: is a 
letter, the AAA and x make the filename unique. This file is deleted upon 
termination of the program or execution of a CLOSE statement, unless 
STATUS=' KEEP' is specified in the CLOSE statement. 
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Already open If a FORTRAN program has a file already open, an OPEN statement that specifies 

only the file’s logical unit number and the parameters to change can be used to 
change some of the file’s parameters (specifically, BLANK and FORM). The 
system determines that it should not really OPEN a new file, but just change the 
parameter values. Thus, this looks like a case where the runtime system would 
make up a name, but it does not. 

Olhcr In all other cases, the runtime system OPENS a file with a name of the form 

fort. n, where n is the logical unit number given in the OPEN statement. 

Passing filenames to programs The SunOS file system does not have any notion of temporary filename binding 

(or file equating) as some other systems do. Filename binding is the facility that 
is often used to associate a FORTRAN logical unit number with a physical file 
without changing the program. This mechanism evolved to communicate 
filenames more easily to the mnning program, because in FORTRAN 66 you 
could not open files by name. With SunOS or with UNIX there are several 
satisfactory ways to communicate filenames to a FORTRAN program including 
command-line arguments and environment-variable values. For example, see the 
file ioinit. f in libl77, which is discussed in Section 7.2, under 
Subsection “Logical Unit Preattachment.’’ The program can then use those 
logical names to open the files. The next section describes two additional ways 
to change a program’s input and output files without changing the program, 
called redirection and piping. 

Preconnected units When a FORTRAN program begins execution under SunOS, there are usually 

three units already open. These are called preconnected units. Their names are 
standard input, standard output, and standard error. In FORTRAN programs; 

□ standard input is logical unit 5 

□ standard output is logical unit 6 

□ standard error is logical unit 0 

All three are connected to your workstation or window, unless file redirection or 
piping is done at the command level. 


Other units 


All other units are preconnected to files named fort . n where n is the 
corresponding unit number. These files need not exist, and are created only if the 
units are actually used, and if the first action to the unit is a WRITE or PRINT . 
That is, only if an OPEN statement does not override the preconnected name 
before any WRITE or PRINT is issued for that unit. For example, the program: 


WRITE! 15 ) 2 
END 


writes a single unformatted 


record on the f ort. 15 file. 
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A.4. Program Development Action: Remove pages 131 and 132 from the Sun FORTRAN Programmer’s 

Guide, and replace them with the new pages 131 and 132 that follow. 

Description of Changes 

On page 132, moved ampersands to column one, and in the last 
format changed double quote to single quote. 
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Table 8-1 Time Functions Available to FORTRAN 


Name 

Function 

Man Page 

TIME 

Returns the number of 
seconds elapsed since 1 
January, 1970 

time(3f) 

FDATE 

Returns the current time 
and date as a character 
string 

fdate(3f) 

IDATE 

Returns the current 
month, day, and year in 
an integer array 

idate(3f) 

ITIME 

Returns the current hour, 
minute, and second in an 
integer array 

itime(3f) 

CTIME 

Converts time returned 
by time function to 
character string 

ctime(3f) 

LTIME 

Converts time returned 
by t ime function to 
local time 

Itime(3f) 

GMTIME 

Converts lime returned 
by t ime function to 
Greenwich time 

gmtime(3f) 

ETIME 

Returns elapsed user and 
system time for program 
execution 

etime(3f) 

DTIME 

Returns elapsed user and 
system time since last 
call to dtime 

dtime(3f) 


The following program is an example of how to implement FORTRAN time 
functions that might appear on other systems; 
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SUBROUTINE STARTCLOCK 

COMMON / MYCLOCK / MYTIME 

INTEGER MYTIME 

INTEGER TIME 

MYTIME = TIMEO 

RETURN 

END 

FUNCTION WALLCLOCK 

INTEGER WALLCLOCK 

COMMON / MYCLOCK / MYTIME 

INTEGER MYTIME 

INTEGER TIME 

INTEGER NEWTIME 

NEWTIME = TIMEO 

WALLCLOCK = NEWTIME - MYTIME 

MYTIME = NEWTIME 

RETURN 

END 


PROGRAM TESTTIME 

C Play with some system timing functions 
INTEGER WALLCLOCK, ELAPSED 
CHARACTER*24 GREETING 
REAL DTIME 

REAL TIMEDIFF, TIMEARRAY(2) 

C Print a heading 

CALL FDATE( GREETING ) 

WRITE( 6, 10 ) GREETING 

10 FORMAT('l Hi, it"s ' , A24 /) 

C See how long an 'Is' takes, in seconds 
CALL STARTCLOCK 
CALL SYSTEM! 'Is' ) 

ELAPSED = WALLCLOCK!) 

WRITE! 6, 20 ) ELAPSED 

20 FORMAT!//,'Elapsed time ', 14, ' seconds'///) 

C Now test the CPU time for some trivial computing 
TIMEDIFF = DTIME! TIMEARRAY ) 

Q = 0.01 

DO 30 I = 1, 1000 
Q = ATAN! Q ) 

30 CONTINUE 

TIMEDIFF = DTIME! TIMEARRAY ) 

WRITE! 6, 40 ) TIMEDIFF 
40 FORMAT!//,'Computing ATAN!Q) 1000 times', 

& / 'took ', F6.3,' seconds.'/) 

END 

--- -- > 
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A.5. The C—FORTRAN Action: Remove pages 183 and 184 from the Sun FORTRAN Programmer’s 

Interface Guide, and replace them with the new pages 183 and 184 that follow. 

Description of Changes 

On page 184, under “Return a float”, revised description and 
examples to cover all Sun architectures. 
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Arrays 


Calling C from FORTRAN 

Repeat a character 


The compiler appends a trailing 
underscore to all external names in 
FORTRAN programs, so you need to 
add an underscore to the name of 
the C function called. 

The function’s returned character 
string is passed by the two extra 
arguments retval_ptr and 
retval_len, a pointer to the start 
of the string and the string’s length. 

The character-string argument is 
passed with char_ptr and 
charjen , the first points to the 
string start and the second gives 
the string’s length. The repeat 
factor is passed as n_ptr. 


A C array always starts at zero, but a FORTRAN array starts at 1, by default, so in 
the above example, FORTRAN B (2) is equivalent to C b [ 1 ]. FORTRAN 
arrays are stored in column-major order, C arrays in row-major order. 

The following examples illustrate FORTRAN programs that call C functions. 

The called function has the task of building a character string by repeating a 
character N times, where the character and N are arguments. 


main. £: 


f — 

CHARACTER STRING*100, 

REPEAT*50 



STRING = REPEAT ( 
PRINT *, STRING 

END 

o 

t—1 





J 


File repeat, c: 

If repeat were a FORTRAN function, the compiler would hide the details of 
managing character strings; however, since repeat is written in C, the 
housekeeping must be explicit: 


---- 

#include <stdio.h> 

repeat_(retval_ptr, retval_len^ char_ptr, n_ptr, char_len) 

char *retvalj)tr, *char_ptr; 

int retval_len, ^n_ptr^ char_len; 

{ 

int county i; 
char *cp; 

count = *n_ptr; 
if (count > retval_len) { 

fprintf( stderr^ "repeat count too large\n”); 
count = retval_len; 

} 

cp = retval^ptr; 

for (i=0; i<count; i+f) { 

*cp++ = *char_ptr; 

} 

for (i=count; i<retval__len; i++) { 

*cp++ = ' '; 

1 

} 

S_^ 


This program can be compiled with the £77 command: 

-------------^-—---—-----. . N 

demo% £77 main.£ repeat.c 


wsun 
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Since every character argument in the list is associated with an additional 
argument giving the string’s length, such FORTRAN strings need not terminate 
with a null character, as required by C. 

Return a float If MAIN declares REPEAT as an INTEGER, LOGICAL, REAL, or DOUBLE 

PRECISION function, then the two initial arguments would not be present, so 
the return value could be passed back to the FORTRAN program with a return 
statement. To return a float, and have it work on all Sun architectures , use the 
macros from the math . h header file, as in the following example: 


— 



testincrl. f 

/* incrl.c: return a float */ 


REAL incr, R, S 

#include <math.h> 


R = 1.0 

FLOATFUNCTIONTYPE incr ( float ptr ) 


S = incr ( R ) 

float '‘'float ptr ; 


PRINT S 

{ 


STOP 

float f ; 


END 

L 

f = Afloat ptr ; 

; 

RETURNFLOAT ( f ) ; 

} 



To return a pointer to a float (also works on all Sun architectures): 


f 

* testincr2.f 

incr2.c: return a pointer a float 


POINTER ( P, S ) 

static float f ; 


REAL R, S 

float *incr ( float ptr ) 


R = 1.0 

float Afloat ptr ; 


P = incr( R ) 

{ 


PRINT S 

f = Afloat ptr ; 


STOP 

f+ + ; 


END 

return &f ; 

} 



j 


Either one of the above pairs prints 2.000000. For example: 


/---—-^- 


demo% f77 testincrl.fincrl^c 


testincrl.f: 


testincrl.f: 


MAIN: 


incrl.c: 


Linking: 


demo% a.out 


2.000000 


demo% 1 



J 


♦ If C returns a float, C promotes it to a double; different architectures handle this differently. 
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A.6. f77 Man Pages Action: Remove pages 253 through 258 from the Sun FORTRAN Programmer’s 

Guide, and replace them with the new pages 253 through 258 that follow. 

Description of Changes 

Inserted the optional optimizer file optim under -Qoption, 
-Qproduce, and FILES. 

Inserted the options -dalign, -pic, and -PIC. 

Inserted the note that -misalign is restricted to the Sun-4. 
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INTRO(l) 


USER COMMANDS 


INTRO(l) 


NAME 

intro - introduction to FORTRAN Manual Pages 
DESCRIPTION 

This section includes the man pages for f77, f77cvt, fpr, fsplit, and ratfor. 
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F77(l) 


USER COMMANDS 


F77(l) 


NAME 

177 — Sun FORTRAN compiler 
SYNOPSIS 

n7 [ -66 ] [ -a ] [ -align Jblock ] [ -ansi ] [ -c ] [ -C ] [ -dalign ] [ -dryrun ] [ -Dname[=def] ] [ -e ] 

[ floatyption ] [ -fstore ] [ -f ] [ -F ] [ -g ] [ -help ] [ -i2 ] [ -i4 ] 

[ -Ipathname ] [ -llib ] [ -Ldir ] [ -misalign | [ -N[cdlnqsx]rt«/j ] 

[ -o outfile ] [ -onetrip 1 [ -O [ 123] ] f -p ] [ -pg ] [ -pic ] [ -PIC ] [ -pipe ] 

[ -Qoption prog opt ] [ -Qpath pathname ] [ -Qproduce sourcetype ] [ -S ] [ -temp=dz> ] 

[ —time ] [ —u ] [ —U ] [ — v ] [ —w[66 ] ] sourcefile ... 

DESCRIPTION 

177 IS the Sun FORTRAN compiler, which translates programs written in the Sun FORTRAN programming 
language into executable load modules or into relocatable binary programs for subsequent linking with 
ld(l). Sun FORTRAN is a superset of FORTRAN 77, with many extensions, including those to provide com¬ 
patibility with VMS FORTRAN (in conjunction with f77cvt(l)). In addition to the many flag arguments 
(options), f77 accepts several types of files. 

Files with names ending in .f are taken to be Sun FORTRAN source files; they are compiled, and each 

object program is put in the current directory in a file with the same name as the source, with .o substituted 

for .f. 

Files with names ending in .F are also taken to be Sun FORTRAN source files, but they are preprocessed by 
the C preprocessor (equivalent to a cc -E command) before they are compiled by the f77 compiler. 

Files with names ending in .c or .s are taken to be C or assembly source files and are compiled or assem¬ 
bled, producing .o files. 

Files with names ending in .il are taken to be in-line expansion code template files; these are used to 
expand calls to selected routines in-line when the -O option is in effect. 

Files with names ending in .vf or .for are assumed by the r77cvt(l) source code converter (not by the f77 
compiler) to be valid VMS FORTRAN source files and are converted to source files acceptable to both Sun 
FORTRAN and VMS FORTRAN compilers, except for possible VMS FORTRAN features which it can’t con¬ 
vert, which are reported by error messages. 

OPTIONS 

See Id(l) for link-time options. 

Report non-FORTRAN 66 constructs as errors. 

Insert code to count how many times each basic block is executed. Invokes a runtime 
recording mechanism that creates a .d file for every .f file (at normal termination). The .d 
file accumulates execution data for the corresponding source file. The tcov(l) utility can 
then be run on the source file to generate statistics about the program. 

-align _block_ Cause the common block whose FORTRAN name is block to be page-aligned: its size is 
increased to a whole number of pages, and its first byte is placed at the beginning of a 
page. This option is passed on to the linker; it’s a linker option. For example, the com¬ 
mand “f 77 -align _BUFFO_ GROWTH . F” causes BUFFO to be page-aligned. 

-ansi Identify all non-ANSI extensions. Note that HTcvt provides an option to flag any Sun 

FORTRAN extensions that it uses during the conversion of a VMS FORTRAN source file. 

Suppress linking with ld(l) and produce a .o file for each source file. A single object file 
can be named explicitly using the -o option. 

Compile code to check that subscripts are within the declared array bounds. 
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USER COMMANDS 


F77(l) 


-dalign 


-dryrun 

-Dname[-def] 

-e 

-f 

float_option 


-F 

-g 

-help 

-i2 

-i4 

—Ipathname 


-llib 

-Ldir 


Generate double load/store instructions wherever possible to give faster execution. Using 
this option automatically triggers the -f option (see below) to cause all double typed data 
to be double aligned. Note that with the -dalign option, you may not get the usual align¬ 
ment guaranteed by ANSI standard FORTRAN so you may be sacrificing portability to 
gain speed. See also "Shared Libraries" in Programming Utilities and Libraries . 

(Sun-4 only). 

Show but do not execute the commands constructed by the compilation driver. 

Define a symbol name to the C preprocessor, cpp(l). Equivalent to a #define directive in 
the source. If no de/is given, name is defined as ‘1 ’ (.F suffix files only). 

Accept extended source lines, up to 132 characters long. 

Align local data and common blocks on 8-byte boundaries. Resulting code may not be 
standard and may not be portable. 

Roating-point code generation option. This option does not apply to the Sun-4, which 
generates SPARC floating-point instructions. For the Sun-2 and , floatyption can 
be one of: 

-f68881 

Generate in-line code for the Motorola MC68881 floating-point coprocessor 
(Sun-3 only). 

-ffpa Generate in-line code for the Sun-3 Roating-Point Accelerator board (Sun-3 
only). 

-fsky Generate in-line code for the Sky Floating-Point Processor (Sun-2 only). 

“fsoft Generate software floating-point calls (Sun-2 and Sun-3 systems, for which this 
is the default). 

-fstore Insure that expressions allocated to extended precision registers are rounded to 
storage precision whenever an assignment occurs in the source code. Only has 
effect when -f68881 is specified. (Sun-3 only) 

-fswitch 

Generate runtime-switched floating-point calls. The compiled object code is 
linked at runtime to routines that support one of the above types of floating-point 
code. This was the default in previous releases. Only for use with programs 
that are floating-point intensive and which must be portable to machines with 
various floating-point options (Sun-2 or Sun-3). 

Apply the C preprocessor to .F files. Put the result in corresponding .f files, but do not 
compile them. No linking is done. 

Produce additional symbol table information for dbx(l) and pass the -Ig flag to ld(l). 
Display an equivalent of this list of options. 

Make the default size of integer and logical constants and variables two bytes. 

Make the default size of integer and logical constants and variables four bytes (this is the 
default). 

Add pathname to the list of directories in which to search for #include files with relative 
filenames (not beginning with /). The preprocessor first searches for #include files in the 
directory containing sourcefile, then in directories named with -I options (if any), and 
finally in /usr/include/f77 (applies to processing of .F suffix files only). 

Link with object library lib (for Id(l)). 

Add dir to the list of directories containing object-library routines (for linking using 
ld(l)). 
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F77(l) 


USER COMMANDS 


F77(l) 


-misalign Sun-4 only. Allow for misaligned data in memory. Use this option only if you get a 
warning that COMMON or EQUIVALENCE statements cause data to be misaligned. 
WARNING; With this option, the compiler will generate very much slower code for 
references to dummy arguments. If you can, you should recode the indicated section 
instead of recompiling with this option. 

-N[cdlnqsx]/inn Make static tables in the compiler bigger. f77 complains if tables overflow and suggests 
you apply one or more of these flags. These flags have the following meanings: 
c Maximum depth of nesting for control statements (for example, DO loops). 
Default is 20. 

d Maximum depth of nesting for data structures and unions. Default is 20. 

I Maximum number of continuation lines for a continued statement. The default is 

19 (1 initial and 19 continuation), 
n Maximum number of identifiers. Default is 1009. 
q Maximum number of equivalenced variables. Default is 150. 
s Maximum number of statement numbers. Default is 401. 

X Maximum number of external names (common block, subroutine, and function 
names). Default is 200. 

Multiple -N options increase sizes of multiple tables. 

-o outjile Name the output file outfile. outfile must have the appropriate suffix for the type of file to 

be produced by the compilation (see FILES, below), outfile cannot be the same as 
sourcefile (the compiler will not overvmte the source file). 

-onetrip Compile DO loops so that they are performed at least once if reached. Otherwise, Sun 

FORTRAN DO loops are not performed at all if the upper limit is smaller than the lower 
limit. 

—0[123] Optimize the object code. This invokes both the global intermediate code optimizer and 

the object code optimizer. 

-01 Peephole Optimization only. Do not use -01 unless -02 and -03 result in 
excessive compilation time, or running out of swap space. 

-02 Partial optimization. Does a restricted set of global optimizations. Do not use 
-02 unless -03 results in excessive compilation time, or running out of swap 
space. (Same as -P) 

—03 Global Optimization, (same as -O) 


If the optimizer runs out of swap space, try any of the following possibly correc¬ 
tive measures (listed in increasing order of difficulty): 

1. Change from -03 to -02 . 

2. Divide large, complicated routines into smaller, simpler ones. 

3. Increase the limit for the stacksize: insert the line 
"limit stacksize 8 megabytes" into your .cshrc file. 

4. Repartition you disk with two to four times as much swap space. 

Backup everything first. 

You may well need help from your system administrator to do this, 
p Prepare the object code to collect data for profiling with prof(l). Invokes a runtime 

recording mechanism that produces a mon.out file (at normal termination). 

P8 Prepare the object code to collect data for profiling with gprof(l). Invokes a runtime 

recording mechanism that produces a gmon.out file (at normal termination). 

-pic Produce position-independent code. Each reference to a global datum is generated as a 

dereference of a pointer in the global offset table. Each function caU is generated in pc- 
relative addressing mode through a procedure linkage table. The size of the global offset 
table is limited to 64K on MC68(XX)-family processors, or to 8K on SPARC processors. 
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F77(l) 
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F77(l) 


-PIC Similar to -pic, but allows the global offset table to span the range of 32-bit addresses. 

This is for use in those rare cases where there are too many global data objects for -pic . 
-pipe Use pipes, rather than intermediate files between compilation stages. Very cpu-intensive. 

-P See the -02 option. 

-Qoption prog opt 

Pass the option opt to the program prog. The option must be appropriate to that program 
and may begin with a minus sign, prog can be one of: as, c2, eg, epp, f77passl, iropt, 
inline, Id, or optim. 

-Qpath pathname 

Insert directory pathname into the compilation search path (to use alternate versions of 
programs invoked during compilation). This path will also be searched first for certain 
relocatable object files that are implicitly referenced by the compiler driver (such files as 
♦crt*.o and bb link.o). 

-Qproduce sourcetype 

Produce source code of the type sourcetype, where sourcetype can be one of: 

.o Object file from as( 1). 

^ Assembler source (from f77passl, inline, c2, eg, or optim). 

Compile the named programs, and leave the assembly language output on corresponding 
files suffixed .s (no .o file is created). 

Set directory for temporary files to be dir. 

Report execution times for the various compilation passes. 

Make the default type of a variable ‘undefined’, rather than using the FORTRAN default 
rules. 

Do not convert upper case letters to lower case. The default is to convert upper case 
letters to lower case, except within character string constants. 

Verbose. Print the name of each pass as the compiler executes. 

Suppress all warning messages. —w66 suppresses only FORTRAN 66 compatibility warn¬ 
ings. 

Other arguments are taken to be either linker option arguments, or f77-compatible object programs, typi¬ 
cally produced by an earlier run, or libraries of f77-compatible routines. These programs, together with the 
results of any compilations specified, are linked (in the order given) to produce an executable program in 
the file specified by the -o option, or in a file named a.out if the -o option is not specified. 

ENVIRONMENT 

FLOAT_OPTION When no floating-point option is specified, the compiler uses the value of this environ¬ 
ment variable (if set). Recognized values are: f68881, ffpa, fsky, fswitch and fsoft. 


-S 

-iemp=dir 

-time 

-u 

-U 

-V 

-w[66] 


FILES 

a*out 

JileA 

files 

file.¥ 

file .for 

fileM 

file.W 

file.o 

files 

files 

fileXQoy 

/Ub/c2 

/lib/cg 


executable output file 

library of object files 

tcov(l) test coverage input file 

Sun FORTRAN source file 

Sun FORTRAN source file for cpp(l) 

VMS FORTRAN source file for f77cvt(l) 

VMS FORTRAN source file for f77cvt(l) 
inline expansion file 
object file 

assembler source file 
assembler source for cpp(l) 
output from tcov(l) 

optional optimizer for Sun-2, Sun-3, or Sun-4. 
Sun FORTRAN code generator 
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F77(l) 


USER COMMANDS 


F77(l) 


/lib/compile 

compiler command-line processing driver 

/lib/cpp 

macro preprocessor 

/lib/crtO.o 

runtime startup 

/lib/Fcrtl.o 

startup code for -fsoft option 

/lib/gcrtO.o 

startup for gprof-profiling 

/lib/libc.a 

standard library, see intro(3) 

/lib/mcrtO.o 

startup for profiling 

/lib/Mcrtl.o 

startup code for -f68881 option 

/lib/optim 

optional optimizer for Sun386/. 

/lib/Scrtl.o 

startup code for -fsky option 

/lib/Wcrtl.o 

startup code for -ffpa option 

/usr/include/f77 

directory searched by the Sun FORTRAN INCLUDE statement 

/usr/biii/f77 

compiler command-line processing driver 

/usr/bin/f77cvt 

VMS FORTRAN source code converter 

/ usr/lib/f77pass 1 

Sun FORTRAN parser 

/usr/lib/Iibc_p.a 

profiling library, see intro(3) 

/usrAib/IibF77.a 

Sun FORTRAN library; General - other than I/O or UNIX interface 

/usr/Iib/inline 

inline expander of library calls 

/usr/lib/libI77.a 

Sun FORTRAN library: I/O routines 

/usr/Iib/libm.a 

math library 

/usr/lib/libpfc.a 

startup code for combined Sun Pascal and Sun FORTRAN programs 

/usr/lib/libU77.a 

Sun FORTRAN library: interface to UNIX system calls 

/tmp/* 

compiler temporary files 

mon.out 

file produced for analysis by prof(l) 

gmon.out 

file produced for analysis by gprof(l) 


SEE ALSO 

cc(l), f77cvt(l), fpr(l), fsplit(l), gprof(l), ld(l), prof(l) 

Sun FORTRAN Programmer's Guide 
Floating-Point Programmer’s Guide for the Sun Workstation 
Programming Utilities and Libraries 
DIAGNOSTICS 

The diagnostics produced by f77 itself are intended to be self-explanatory. Occasional messages may be 
produced by the linker. 
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A.7. ratfor Man Page Action: After page 262 of the Sun FORTRAN ProgrammeFs Guide, insert the 

page 262a that follows: 



sun 

microsystems 


Revision A of 27 January 1989 
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RATFOR(l) 


USER COMMANDS 


RATFOR(l) 


NAME 

ratfor ~ rational FORTRAN dialect 
SYNOPSIS 

ratfor [-6c ] [-C ] [-h ] [ filename .*. ] 

DESCRIPTION 

ratfor converts the rational FORTRAN dialect into standard FORTRAN 77. It provides control flow con¬ 
structs essentially identical to those in C. See the Sun fortran Programmer s Guide for a description of 
the Ratfor language. 

OPTIONS 

-6 c Use the character c as the continuation character in column 6 when translating to FORTRAN. The 
default is to use the & character as a continuation character. 

-C Pass Ratfor comments through to the translated code. 

-h Translate Ratfor string constants to Hollerith constants of the form nnnhstring. Otherwise just 
pass the strings through to the translated code. 

SEE ALSO 

n7(i) 

Ratfor in the Sun FORTRAN Programmer s Guide 
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A.8. abort Man Page Action; Remove pages 265 and 266 from the Sun FORTRAN Programmer’s 

Guide, and replace them with the new pages 265 and 266 that follow. 

Description of Changes 

Removed all references to the optional argument string. 
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FORTRAN LIBRARY ROUTINES 


ABORT {3F) 


NAME 

abort - terminate abruptly with memory image 

SYNOPSIS 

subroutine abort 

DESCRIPTION 

Abort cleans up the I/O buffers and then aborts producing a core file in the current directory. 

FILES 

/usr/lib/libF77.a 

SEE ALSO 

abort(3) 
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FORTRAN LIBRARY ROUTINES 


ACCESS (3F) 


NAME 

access - determine accessibility of a file 
SYNOPSIS 

integer function access (name, mode) 
character*(+) name, mode 

DESCRIPTION 

Access checks the given file, name, for accessability with respect to the caller according to mode. Mode 
may include in any order and in any combination one or more of: 

r test for read permission 

w test for write permission 

X test for execute permission 

(blank) test for existence 

An error code is returned if either argument is illegal, or if the file can not be accessed in all of the specified 
modes. 0 is returned if the specified access would be successful. 

FILES 

/usr/lib/libU77.a 

SEE ALSO 

access(2), perror(3F) 
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A.9. f77 ieee_environment Action: Remove pages 273 through 276 from the Sun FORTRAN Programmer’s 

Man Pages Guide, and replace them with the new pages 273 through 276 that follow. 

Description of Changes 

In the f 7 7_iee_environment man pages, on page 275: inserted 
passing sig and code by value, using the loc function, and 
changed “extern sample_handler” to 
“external sample_handler”. 
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F77_FLOATINGPOINT (3F) 


FORTRAN LIBRARY ROUTINES 


F77„FLO ATINGPOINT (3F) 


NAME 

f77_floatingpoint - Fortran IEEE floating-point definitions 
SYNOPSIS 

#include <f77/r77_floatingpoint.h> 

DESCRIPTION 

This file defines constants and types used to implement standard floating-point according to ANSI/IEEE 

Std 754-1985. Use these constants and types to write more easily understood .F source files that will 

undergo automatic preprocessing prior to Fortran compilation. 

IEEE Rounding Modes: 

fp_direction_type The type of the IEEE rounding direction mode. Note that the order of 

enumeration varies according to hardware. 

fp„precision_type The type of the IEEE rounding precision mode, which only applies on systems 

that support extended precision such as Sun-3’s with 6888rs. 

SIGFPE handling: 

sigfpe_code_type The type of a SIGFPE code. 

sigfpe_handler_type The type of a user-definable SIGFPE exception handler called to handle a 
particular SIGFPE code. 

SIGFPE_DEFAULT A macro indicating the default SIGFPE exception handling, namely for IEEE 
exceptions to continue with a default result, and to abort for other SIGFPE codes. 

SIGFPEJGNORE A macro indicating an alternate SIGFPE exception handling, namely to ignore and 

continue execution. 

SIGFPE_ABORT A macro indicating an alternate SIGFPE exception handling, namely to abort with 

a core dump. 

IEEE Exception Handling: 

N_IEEE_EXCEPTION The number of distinct IEEE floating-point exceptions. 

fp_exception_type The type of the N_IEEE_EXCEPTION exceptions. Each exception is given a bit 

number. 

fp_exception_field_type The type intended to hold at least N_IEEE_EXCEPTION bits corresponding to 
the IEEE exceptions numbered by fp_exceptionjype. Thus fpjnexact 
corresponds to the least significant bit Sind fpjnvalid to the fifth least significant 
bit. Some operations may set more than one exception. 

IEEE Classification: 

fp_class_type An enumeration of the various classes of IEEE floating-point values and symbols. 

FILES 

/usr/include/f77/f77_floatingpoint.h 
SEE ALSO 

ieee_environment(3M), f77_ieee_environment(3F) 
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NAME 

IEEE environment - mode, status, and signal handling subprograms for IEEE arithmetic 
SYNOPSIS 

#include <f77/f77 floatingpoint.h> 

integer function ieee_flags(action,mode,in,out) 
character*(*) action, mode, in, out 

integer function ieee_handler(action,exception,hdI) 
character*(+) action, exception 
sigfpe_handler_type hdl 

sigfpe handler type function sigfpe(code, hdl) 
sigfpecodetype code 
sigfpe_handler_type hdl 

DESCRIPTION 

These subprograms provide modes and status required to fully exploit ANSI/IEEE Std 754-1985 arithmetic 
in a FORTRAN program. They correspond closely to the functions ieee Jiags(3M), ieee_handler(3M), and 
sigfpe(3). 

EXAMPLES 

The following examples illustrate syntax, 
integer ieeer 

character* 1 mode, out, in 

ieeer = ieee_flags(’clearall’,mode, in, out) 

sets ieeer to 0, rounding direction to ’nearest’, rounding precision to ’extended’, and all accrued 
exception-occurred status to zero. 

character* 1 out, in 

ieeer = ieee_flags(’clear’,’direction’, in, out) 
sets ieeer to 0, and rounding direction to ’nearest’, 
character* 1 out 

ieeer = ieee_flags(’set’,’direction’,’tozero’,out) 

sets ieeer to 0 and the rounding direction to ’tozero’ unless the hardware does not support directed 
rounding modes; then ieeer is set to 1. 

character* 16 out 

ieeer = ieee_flags(’clear’,’exception’,’air,out) 

sets ieeer to 0 and clears all accrued exception-occurred bits. If subsequently overflow, invalid, and 
inexact exceptions are generated then 

character* 16 out 

ieeer = ieee_flags(’get’,’exception’,’overflow’,out) 
sets ieeer to 25 and out to ’overflow’. 
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A user-specified signal handler might look like this: 

integer function sample„handler ( sig, code, sigcontext) 
integer sig 
integer code 
integer sigcontext(5) 

c Sample user-written sig^e code handler, 

c Prints a message and terminates, 

c sig .eq. SIGFPE always. 

c The structure of sigcontext is defined in <signal.h>. 

print *, ’ieee exception code loc(code), ’ occurred at pc sigcontext(4) 

call abort 

end 

and it might be set up like this: 

external sample_handler 
integer ieeer 

ieeer = ieee_handler (’set’, ’overflow’, sample_handler) 
if (ieeer .ne. 0) print + ,’ ieee_handler can not set overflow ’ 

NOTE: UNIX invokes signal handlers by passing sig and code by value. If you write a signal handler 
function in FORTRAN as in the example, you can access these values with the loc function. 

FILES 

/usr/include/f77/f77_f[oatingpoint.h 

/usr/libAibm.a 

SEE ALSO 

floatingpoint(3), signal(3), sigfpe(3), f77_f[oatingpoint(3F), ieee_flags(3M), ieee__handler(3M) 
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FDATE(3F) 


NAME 

fdate - return dale and time in an ASCII string 
SYNOPSIS 

subroutine fdate (string) 
character*24 string 

character*24 function fdate() 

DESCRIPTION 

Fdate returns the current date and time as a 24 character string in the format described under ctime{?>). 
Neither ’newline’ nor NULL will be included. 

Fdate can be called either as a function or as a subroutine. If called as a function, the calling routine must 
define its type and length. For example: 

character+24 fdate 
write(*,+) fdateO 


FILES 

/usr/libAibU77.a 
SEE ALSO 

ctime(3), time(3F), idate(3F) 
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